
DECUS NO. 


TITLE 


AUTHOR 


COMPANY 


DATE 


SOURCE LANGUAGE 



PROGRAM LIBRARY 


8-532 

OPDDT (ONE PAGE DDT) 


W. Friedman 


Rockefeller University 
New York, New York 


May 9, 1972 


MACRO-8 


Although this program has been tested by the contributor, no warranty, express or implied, is made by the contributor. 
Digital Equipment Computer Users Society or Digital Equipment Corporation as to the accuracy or functioning of the 
program or related program material, and no responsibility is assumed by these parties in connection therewith. 







OPDDT (ONE PAGE DDT) 


DECUS Program Library Write-up 


DECUS NO. 8-532 


THIS PROGRAM OPERATES IM A MAMMER SIMILAR TO ODT BUT 
WITH THESE DIFFERENCES: 

1. IT CAN BE RUN ON ANY PAGE EXCEPT XERO• IT MAY BE MOVED 
AFTER BEING LOADED BUT NOT AFTER BEING STARTED. 

B. ALL ADDRESSES RECUIKE 4 OCTAL DIGITS. IF AN ERROR IS 

MADE KEEP TYPING: ONLY THE LAST 4 DIGITS BEFORE A COMMAND 
COUNT. 

3. COMMANDS: 

3.1 XXXXE THE CONTENTS OF ADDRESS XXXX WILL BE TYPED AFTER 

HITTING THE E CEXAMINE]. 

3.11 CARRIAGE RETURN AFTER E» WILL CAUSE THE CONTENTS OF 

NEXT LOCATION TO BE TYPED. 

3.12 YYYYC THE E COMMAND OPENS A LOCATION. YYYYC CAUSES 

ITS CONTENTS TO BE CHANGED 10 YYYY AFTER THE 
C C FOR CHANGE] IS TYPED. 

3.2 XXXXB A BREAKPOINT IS SET IN FRONT OF LOCATION XXXX 

WHEN THE B IS TYPED. THE BREAKPOINT REMAINS 

UNTIL A NEW ONE IS TYPED. TO REMOVE ALL BREAKPOINTS 

SET ONE OUT SIDE THE PROGRAM AREA. 

3.3 XXXXG TRANSFER CONTROL CGO 3 TO ADDRESS XXXX W ITH THE 

INTERRUPT OFF. WHEN THE BREAKPOINT IS REACHED 
THE CONTENTS OF THE AC AND L ARE SAVED *ND 
THE AC TYPED. 


3.31 G REPEATS 3.3 IF NO OTHER COMMAND HAS INTERVENED. 

USEFUL FOR REPEATING a LOOP. 


3.4 P PROCEED FROM THE LAST BREAKPOINT T3 THE TEXT. 

THE CONTENTS OF THE At AND L ARE FIRST 1 ESTOi.ED. 

3.5 XXXXF LIKE G> EXCEPT THAT TrtE INTERRUPT IS TURNED lN 

BEFORE ENTERING THE TESTED PROGRAM. 


4.0 STARTUP: 


start the program at the first location 

OF THE PAGE ON WHICH IT WAS LOADED: I.E. 

IF IT WAS LOADED AT 5000 AND MOVED TO 4000* 
START IT AT 4000. 





5000 

5001 

5002 

5003 

5004 

5005 

5006 

5007 


5010 

501 1 

5012 

5013 

5014 

5015 

5016 

5017 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 

5030 

5031 

5032 

5033 

5034 
^ U3 5 
5036 
5 037 

5040 

5041 
5 042 
5 0 43 
5044 


/0FDD1: S,B 
/4- 15-7P 

/ W F , TAPE 5, OiME PAGE DZBUGGEk 
* 5000 /FOE 'l ESI 
/KIJNS ON ANY PAGE EXCEPT Z EKO 
4200 INI, JMS . /JMP ST AFTEK INITIALIZATION 
7240 CLA CMA 
1361 TAD EESTAD 
0377 AND A 177 
1200 TAD INI 
3201 DCA INST 
1302 TAD JMPST 
3200 DCA INI 
/ 

INST =INI+1 
C N = INI + 2 
FT 1 = INI + 3 
SAVAC = INI + 4 
T 1 = I NI + 5 
WD=INI+6 
L = I NI + 7 
/ 

6002 ST, IOF 
4213 JMS ED 

5211 JMP .-1 
/ 

0000 ED, 0 

/1 OF NOT NEEDED. 

4351 JMS CELF 
6031 KSF 
5215 JMP .-1 
6036 KEh 
4343 JMS TYPE 
/ 

1376 TAD -3-320 
7450 SNA 
5315 JMP P 
137 5 TAD till 
7450 5NA 

5304 JMP G /GO WITH IOF 
7001 I AC 

7450 SNA 

5303 JMP F /GO WITH ION 
7001 I AC 
7 450 SNA 

5305 JMP E /EXAMINE 
1374 TAD 32 

7450 SNA 

5256 JMP C /CHANGE 
7001 I AC 
7450 SNA 
5261 JMP 8 
1373 TAD 322 
7510 SPA 
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5045 


5046 

5047 
b 050 
505 1 

5052 

5053 

5054 

5055 

5056 

5057 
5060 


5061 

5062 

5063 

5064 

5065 
5 066 
5067 
50/0 
507 1 
5072 


5073 


507 4 

5075 

5076 
5 07 7 

5 100 

5 101 

5 102 

5 103 


5 104 


5 105 
5 1 06 
5107 
5 110 
5111 
51 12 
5115 


5613 6.XI i tvD /kETURN TO G ROUTINE 

/ 

/ASSEMBLE OCTAL WD 

3205 OCA II 
1206 TAD WD 
7104 GLL KAL 
7104 GLL RAL 
7104 GLL KAL 

1205 TAD T1 

3206 DCA WD 

5215 JMP Ru+2 /MOKE INPUT 
/ 

1206 C# TAD WD 
3603 DCA I PT 1 
5312 JMP E+5 

/ 

/XXXXB--SET UP BREAK POINT# <ESTOT£ PREVIOUS INST. 
1201 B# TAD INST 
3763 DCA I PT 
1363 TAD PT 
3364 DCA FT2 
1206 TAD WD 
3363 DCA FT 
1763 TAD I PT 
3201 DGA INST 
1362 TAD JMPI 5 
3763 DCA I PT 
/ 

/ l NSEKT INDIRECT JMP RESTOP u. XXXX ETS\G. 

5210 JMP 3T /WAIT FOR XaaaG OR XXXX 

/ 

/ENTER RESTOK AFTER E OK G I TYPED 
6002 RES T OK# I OF 
3204 DGA SAGAC 
7004 KAL 

3207 DGA L 

/RESTORE AG 
1204 TAD SAVAC 
4322 JMS POOW 
5210 JMPST# JMP ST 
/ 

6001 F# ION 

/ 

/G: XXXXG STARTS THE TESTED i ROGRA' AT X \XX 
5606 G# JMP I WD 

/ 

/XxXXE- -CONTENTS OF XXXX IS YPED. HIT K .TURN AND 
/CONTENTS OF NEXT LOCATION I TYPc >• 

/ 

1206 E# TAD WD 
3203 DCA FT 1 
7300 GLA GLL 
1603 TAD I FT 1 
4322 JMS FOOW 
4213 JMS KD 
2203 li>4 F'i 1 
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5 114 

5 115 

5 116 
5 117 
5 120 

5 121 

5 122 
5123 
5 124 

5125 

5126 

5 127 
5 130 
5 131 
5132 
5 1 33 
5 134 
5135 
5 136 
5 137 
5 1 40 
5 1 41 
5 1 42 


5 1 43 
5 1 44 
5 1 45 
5 1 46 
5 1 47 
5 150 

5 151 

5 152 
5 1 53 
5 154 
5155 
5 1 56 
5 1 57 

5160 

5161 
5 162 
5 163 
5 164 

5 166 
5 167 
5170 
5 171 
5172 
5 17 3 

5 174 


5307 

JMP E+2 

/PROCEED FhOM 

1 207 

P, TAD L 

7110 

CLL KAk /BIT 11 

120 4 

TAD SAVAC 

7000 

MOP /Oh HL'l FOR 

5764 

JMP I PT2 

/ 

0000 

POOW, 0 

7 104 

ULL KAL 

3205 

DC A 71 

1372 

TAD A-4 

3202 

DC A C M 

/ 

1205 

LP> TAD T1 

7004 

KAL 

7006 

RTL 

3205 

OCA T 1 

1205 

TAD T 1 

037 1 

AMD 07 

1370 

TAD 3260 

4343 

JMS TYPE 

7200 

CE A 

2202 

ISZ CM /4 CHAR? 

5327 

JMP LP /MO 

5722 

EXIT POOW 

/ 

/ 

0000 

TYPE# 0 

6046 

TLS 

6041 

TSF 

5345 

JMP .-1 

6042 

TCF 

57 43 

EXIT TYPE 
/ 

0000 

CKLF, 0 

7300 

CLA CLL 

1367 

TAD 0215 

4343 

JMS TYPE 

1366 

TAD 0-3 

4343 

JMS TYPE 

7300 

CLA CLL 

5751 

EX, EXIT CRLF 
/ 

5074 

kESTAD, KES'lOk 

5405 

JMPI5, JMP I 5 

0005 

FT, 5 /INITIAL 

0000 

PT2, 0/FOk P: P 
/ 

7775 

0215 

0260 

0007 

7774 

0022 

0002 

F> 


LAST TO MEAT BREAKPOINT 


TO L. CLh 


STEPPING 


ADDh> PERMITS B TO SET UP JMP ADDK 
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5175 0011 

5176 7460 

5177 0177 
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